home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / AMICUS / AMICUS26.ADF / SoundScape / AztecExamples / echo.c < prev    next >
C/C++ Source or Header  |  1989-01-26  |  7KB  |  351 lines
  1. #include "exec/types.h"
  2. #include "exec/exec.h"
  3. #include "intuition/intuition.h"
  4. #include "soundscape.h"
  5.  
  6. /*    This is the definition of the state structure for this module.
  7.     It allows other programs to access these two parameters.
  8.     This is primarily for environment loads and saves.
  9. */
  10.  
  11. struct EchoState {
  12.     long length;
  13.     long delaytime;
  14.     long delaycount;
  15. };
  16.  
  17. struct EchoState echostate = { sizeof(echostate) - 4,24,4 };
  18. struct Note *notelist = 0;
  19. unsigned short thisport;
  20.  
  21. /*     Here's the image for the icon. */
  22.  
  23. UWORD echodata[] = {    /* 44 x 10 */ 
  24. 0,    0,    0,    
  25. 0,    0,    0,    
  26. 24,    0,    0,    
  27. 6,    0,    0,    
  28. 255,    32768,    0,    
  29. 6,    0,    0,    
  30. 24,    0,    0,    
  31. 0,    0,    0,    
  32. 0,    0,    0,    
  33. 0,    0,    0,    
  34. 0,    0,    0,    
  35. 6144,    768,    49200,    
  36. 6144,    768,    49200,    
  37. 6144,    768,    49200,    
  38. 6144,    768,    49200,    
  39. 6144,    768,    49200,    
  40. 63488,    7943,    49648,    
  41. 63488,    7943,    49648,    
  42. 0,    0,    0,    
  43. 0,    0,    0,    
  44. };
  45.  
  46. struct Image echoimage = { 0,0,44,10,2,echodata,3,0,0 };
  47.  
  48. /*    These are the Intuition structures for the user edit window.
  49.     These were generated with Power Windows. 
  50. */
  51.  
  52. UBYTE SIBuffer6[16] =
  53.     "24";
  54. struct StringInfo GadgetSI6 = {
  55.     SIBuffer6,
  56.     NULL,
  57.     0,
  58.     16,
  59.     0,
  60.     0,0,0,0,0,
  61.     0,
  62.     24,
  63.     NULL
  64. };
  65.  
  66. USHORT BorderVectors1[] = {0,0,111,0,111,9,0,9,0,0};
  67. struct Border Border1 = {
  68.     -2,-1,
  69.     1,0,JAM1,
  70.     5,
  71.     BorderVectors1,
  72.     NULL
  73. };
  74.  
  75. struct IntuiText IText1 = {
  76.     2,0,JAM2,
  77.     -109,0,
  78.     NULL,
  79.     "Delay Time",
  80.     NULL
  81. };
  82.  
  83. struct Gadget timegadget = {
  84.     NULL,
  85.     141,17,
  86.     108,8,
  87.     GADGHCOMP,
  88.     LONGINT+RELVERIFY+STRINGCENTER,
  89.     STRGADGET,
  90.     (APTR)&Border1,
  91.     NULL,
  92.     &IText1,
  93.     0,
  94.     (APTR)&GadgetSI6,
  95.     6,
  96.     NULL
  97. };
  98.  
  99. UBYTE SIBuffer5[16] =
  100.     "4";
  101. struct StringInfo GadgetSI5 = {
  102.     SIBuffer5,
  103.     NULL,
  104.     0,
  105.     16,
  106.     0,
  107.     0,0,0,0,0,
  108.     0,
  109.     4,
  110.     NULL
  111. };
  112.  
  113. USHORT BorderVectors2[] = {0,0,111,0,111,9,0,9,0,0};
  114. struct Border Border2 = {
  115.     -2,-1,
  116.     1,0,JAM1,
  117.     5,
  118.     BorderVectors2,
  119.     NULL
  120. };
  121.  
  122. struct IntuiText IText2 = {
  123.     2,0,JAM2,
  124.     -109,0,
  125.     NULL,
  126.     "Delay Count",
  127.     NULL
  128. };
  129.  
  130. struct Gadget countgadget = {
  131.     &timegadget,
  132.     141,32,
  133.     108,8,
  134.     GADGHCOMP,
  135.     LONGINT+RELVERIFY+STRINGCENTER,
  136.     STRGADGET,
  137.     (APTR)&Border2,
  138.     NULL,
  139.     &IText2,
  140.     0,
  141.     (APTR)&GadgetSI5,
  142.     5,
  143.     NULL
  144. };
  145.  
  146.  
  147. struct NewWindow NewWindowStructure = {
  148.     131,34,
  149.     286,51,
  150.     0,1,
  151.     GADGETUP+CLOSEWINDOW+RAWKEY,
  152.     WINDOWSIZING+WINDOWDRAG+WINDOWDEPTH+WINDOWCLOSE,
  153.     &countgadget,
  154.     NULL,
  155.     "Runtime Quantization",
  156.     NULL,
  157.     NULL,
  158.     5,5,
  159.     640,200,
  160.     WBENCHSCREEN
  161. };
  162.  
  163.  
  164. opencode(direction)
  165.  
  166. /*    Always happy to open. */
  167.  
  168. unsigned char direction;
  169.  
  170. {
  171.     return(1);
  172. }
  173.  
  174. closecode(direction)
  175.  
  176. /*    When closing down, throw out notelist. */
  177.  
  178. unsigned char direction;
  179.  
  180. {
  181.     struct Note *next;
  182.     enteraztec();
  183.     for (;notelist;notelist = next) {
  184.     next = (struct Note *) notelist->link.next;
  185.     notelist->velocity = 0;     /* Force to off event. */
  186.     Send(thisport,notelist);
  187.     }
  188.     leaveaztec();
  189.     return(1);
  190. }
  191.  
  192. outcode(event)
  193.  
  194. struct Note *event;
  195.  
  196. {
  197.     static char running = 0;
  198.     struct Note *last, *note, *copy, *next;
  199.     unsigned short velocity;
  200.     enteraztec();
  201.     switch (event->status) {
  202.     case START :
  203.     case CONTINUE :
  204.         running = 1;
  205.         break;
  206.     case STOP :
  207.         running = 0;
  208.         for (;notelist;notelist = next) {
  209.         next = (struct Note *) notelist->link.next;
  210.         notelist->velocity = 0;
  211.         Send(thisport,notelist);
  212.         }
  213.         break;
  214.     case CLOCK :
  215.         if (!running) break;
  216.         last = 0;
  217.         for (note = notelist; note; note = next) {
  218.         note->duration--;
  219.         next = (struct Note *) note->link.next;
  220.         if (!note->duration) {
  221.             copy = (struct Note *) AllocNode(NOTE);
  222.             if (copy) {
  223.             copy->status = note->status;
  224.             copy->value = note->value;
  225.             velocity = (note->velocity * note->wait) /
  226.                 echostate.delaycount;
  227.             copy->velocity = velocity;
  228.             Send(thisport,copy);
  229.             }
  230.             note->duration = echostate.delaytime;
  231.             note->wait--;
  232.             if (!note->wait) {
  233.             if (last) last->link.next = note->link.next;
  234.             else notelist = (struct Note *) note->link.next;
  235.             FreeNode(note);
  236.             }
  237.             else last = note;
  238.         }
  239.         else last = note;
  240.         }
  241.         break;
  242.     }
  243.     if (running && echostate.delaycount &&
  244.       (((event->status & 0xF0) == NOTEON) || 
  245.       ((event->status & 0xF0) == NOTEOFF))) {
  246.     event->link.next = (struct Link *) notelist;
  247.     notelist = event;
  248.     event->duration = echostate.delaytime;
  249.     event->wait = echostate.delaycount;
  250.     }
  251.     else FreeNode(event);
  252.     leaveaztec();
  253. }
  254.  
  255. useredit()
  256.  
  257. /*    Open a window with two string gadgets.  Wait for intuition
  258.     messages.
  259.     If CLOSEWINDOW, close down and return.
  260.     If RAWKEY, send the keycode to OutConsole.  This is a SoundScape
  261.     routine that will pass the key value to the Console Keyboard,
  262.     so it can be played from this window.
  263.     If GADGETUP, read the appropriate string gadget.
  264. */
  265.  
  266. {
  267.     struct IntuiMessage *message;
  268.     short code, class;
  269.     struct Gadget *gadget;
  270.     struct Window *window;
  271.     GadgetSI5.LongInt = echostate.delaycount;
  272.     GadgetSI6.LongInt = echostate.delaytime;
  273.     window = (struct Window *) OpenWindow(&NewWindowStructure);
  274.     for (;;) {
  275.     while (!(message = GetMsg(window->UserPort)))
  276.         WaitPort(window->UserPort);
  277.     class = message->Class;
  278.     code = message->Code;
  279.     gadget = (struct Gadget *) message->IAddress;
  280.     ReplyMsg(message);
  281.     if (class == CLOSEWINDOW) break;
  282.     if (class == RAWKEY) OutConsole(code);
  283.     if (class == GADGETUP) {
  284.         switch (gadget->GadgetID) {
  285.         case 5 :
  286.             echostate.delaycount = GadgetSI5.LongInt;
  287.             break;
  288.         case 6 :
  289.             echostate.delaytime = GadgetSI6.LongInt;
  290.             break;
  291.         }
  292.     }
  293.     }
  294.     CloseWindow(window);
  295. }
  296.  
  297. editcode(direction,command,copystate)
  298.  
  299. /*    This is the edit routine.  If the command is USEREDIT, call the
  300.     routine useredit which puts up a window and gadgets and lets the
  301.     user edit the two variables.  The variable notediting is
  302.     used to avoid begin invoked multiple times.
  303.     If GETSTATE or SAVESTATE, copy the echostate into the supplied buffer,
  304.     copystate.
  305.     For SETSTATE and LOADSTATE, do the reverse.
  306. */
  307.  
  308. char direction, command;
  309. struct EchoState *copystate;
  310.  
  311. {
  312.     static char notediting = 1;
  313.     enteraztec();
  314.     echostate.length = sizeof(echostate) - 4;
  315.     switch (command) {
  316.     case USEREDIT :
  317.         if (notediting) {
  318.         notediting = 0;
  319.         useredit();
  320.         notediting = 1;
  321.         }
  322.         break;
  323.     case GETSTATE :
  324.     case SAVESTATE :
  325.         movmem(&echostate,copystate,sizeof(echostate));
  326.         break;
  327.     case SETSTATE :
  328.     case LOADSTATE :
  329.         movmem(copystate,&echostate,sizeof(echostate));
  330.         break;
  331.     }
  332.     leaveaztec();
  333. }
  334.         
  335. long SoundScapeBase;
  336. long IntuitionBase;
  337.  
  338. main() {
  339.     SoundScapeBase = OpenLibrary("soundscape.library",0);
  340.     if (SoundScapeBase) {
  341.     notelist = 0;
  342.     IntuitionBase = OpenLibrary("intuition.library",0);
  343.     CloseLibrary(SoundScapeBase);
  344.     thisport = AddMidiPort(opencode,closecode,editcode,outcode,&echoimage,
  345.         &echoimage,32,"echo");    
  346.     SetTaskPri(FindTask(0),-20);
  347.     while (MidiPort(thisport)) Delay(100);
  348.     CloseLibrary(IntuitionBase);
  349.     }
  350. }
  351.